home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 52 / Amiga Format AFCD52 (Issue 136, May 2000).iso / -serious- / programming / other / pmdev / e / demos / startmenu.e < prev    next >
Encoding:
Text File  |  2000-02-28  |  19.9 KB  |  443 lines
  1. /* -- ----------------------------------------------------------------- -- *
  2.  * -- Program.....: StartMenu.e                                         -- *
  3.  * -- Author......: Daniel Kasmeroglu <raptor@cs.tu-berlin.de>          -- *
  4.  * -- Description.: Port of an example by Henrik Isaksson.              -- *
  5.  * -- ----------------------------------------------------------------- -- *
  6.  * -- Original header:                                                  -- *
  7.  * --                                                                   -- *
  8.  * --   $VER: StartMenu.c 2.3 (23.9.97)                                 -- *
  9.  * --                                                                   -- *
  10.  * --   Popup Menu example program                                      -- *
  11.  * --                                                                   -- *
  12.  * --   ©1996-1997 Henrik Isaksson                                      -- *
  13.  * --   All Rights Reserved.                                            -- *
  14.  * --                                                                   -- *
  15.  * --   Run and move the mouse pointer to the bottom of the screen!     -- *
  16.  * --                                                                   -- *
  17.  * -- ----------------------------------------------------------------- -- */
  18.  
  19. /* -- ----------------------------------------------------------------- -- *
  20.  * --                              Options                              -- *
  21.  * -- ----------------------------------------------------------------- -- */
  22.  
  23. OPT PREPROCESS       -> enable preprocessor
  24.  
  25.  
  26. /* -- ----------------------------------------------------------------- -- *
  27.  * --                              Modules                              -- *
  28.  * -- ----------------------------------------------------------------- -- */
  29.  
  30. MODULE 'intuition/intuition'  ,
  31.        'intuition/screens'    ,
  32.        'utility/tagitem'      ,
  33.        'libraries/popupmenu'  ,
  34.        'exec/memory'
  35.  
  36. MODULE 'popupmenu'
  37.  
  38.  
  39. /* -- ----------------------------------------------------------------- -- *
  40.  * --                            Procedures                             -- *
  41.  * -- ----------------------------------------------------------------- -- */
  42.  
  43. ->»» PROC copydata
  44. PROC copydata( cop_data, cop_size )
  45. DEF cop_mem
  46.  
  47.   cop_mem := NewM( cop_size, MEMF_CHIP )
  48.   IF cop_mem <> NIL THEN CopyMem( cop_data, cop_mem, cop_size )
  49.  
  50. ENDPROC cop_mem
  51. ->»»>
  52.  
  53.  
  54. /* -- ----------------------------------------------------------------- -- *
  55.  * --                               Main                                -- *
  56.  * -- ----------------------------------------------------------------- -- */
  57.  
  58. ->»» PROC main
  59. PROC main()
  60. DEF ma_miamiunsel : PTR TO image
  61. DEF ma_miamisel   : PTR TO image
  62. DEF ma_yamunsel   : PTR TO image
  63. DEF ma_yamsel     : PTR TO image
  64. DEF ma_nn         : PTR TO image
  65. DEF ma_amiga      : PTR TO image
  66. DEF ma_menu       : PTR TO popupmenu
  67. DEF ma_screen     : PTR TO screen
  68. DEF ma_window     : window  -> a faked window, don't try this at home... ;)
  69. DEF ma_result
  70.  
  71.   ->»» INITIALISATION
  72.   ->
  73.   -> WARNING:
  74.   ->
  75.   ->   During the creation of the image structures the data at the
  76.   ->   end of the source will be copied to new allocated chip memory.
  77.   ->   As you can see, I'm not testing whether memory was successfully
  78.   ->   allocated or not because the whole size is very small, so I
  79.   ->   suggest that there should be no problem.
  80.   ->
  81.   ma_amiga  := NIL
  82.   ma_result := TRUE
  83.  
  84.   ma_nn := [ 0, 0,                             -> LeftEdge, TopEdge
  85.              88, 31, 3,                        -> Width, Height, Depth
  86.              copydata( {lab_NNData}, 1116 ),   -> ImageData
  87.              $7,$0,                            -> PlanePick, PlaneOnOff
  88.              NIL ]:image                       -> NextImage
  89.  
  90.   ma_miamisel := [ 0, 0,                                 -> LeftEdge, TopEdge
  91.                    52, 35, 3,                            -> Width, Height, Depth
  92.                    copydata( {lab_MiamiSelData}, 560 ),  -> ImageData
  93.                    $3, $0,                               -> PlanePick, PlaneOnOff
  94.                    NIL ]:image                           -> NextImage
  95.  
  96.   ma_miamiunsel := [ 0, 0,                                   -> LeftEdge, TopEdge
  97.                      52, 35, 3,                              -> Width, Height, Depth
  98.                      copydata( {lab_MiamiUnSelData}, 560 ),  -> ImageData
  99.                      $3, $0,                                 -> PlanePick, PlaneOnOff
  100.                      NIL ]:image                             -> NextImage
  101.  
  102.   ma_yamsel := [ 0, 0,                                -> LeftEdge, TopEdge
  103.                  54, 29, 3,                           -> Width, Height, Depth
  104.                  copydata( {lab_YAMSelData}, 696 ),   -> ImageData
  105.                  $7, $0,                              -> PlanePick, PlaneOnOff
  106.                  NIL ]:image                          -> NextImage
  107.  
  108.   ma_yamunsel := [ 0, 0,                                 -> LeftEdge, TopEdge
  109.                    54, 29, 3,                            -> Width, Height, Depth
  110.                    copydata( {lab_YAMUnSelData}, 696 ),  -> ImageData
  111.                    $7, $0,                               -> PlanePick, PlaneOnOff
  112.                    NIL ]:image                           -> NextImage
  113.  
  114.   ma_window.leftedge := 0
  115.   ma_window.topedge  := 0
  116.   ->»»>
  117.  
  118.   popupmenubase := OpenLibrary( 'popupmenu.library', 9 )
  119.   IF popupmenubase <> NIL
  120.  
  121.     ma_screen := LockPubScreen( NIL )
  122.     IF ma_screen <> NIL
  123.  
  124.       ma_window.wscreen := ma_screen
  125.       ma_window.mousey  := 0
  126.       ma_window.rport   := ma_screen.rastport
  127.  
  128.       -> create a very simple start-menu...
  129.       ma_menu := PMStartMenu,
  130.                    PMItem( 'Miami'   ), PM_USERDATA, 10, PM_ICONSELECTED, ma_miamisel , PM_ICONUNSELECTED , ma_miamiunsel , PMEnd,
  131.                    PMItem( 'IBrowse' ), PM_USERDATA, 20, PM_ICONSELECTED, ma_nn       , PMEnd             ,
  132.                    PMItem( 'YAM'     ), PM_USERDATA, 30, PM_ICONSELECTED, ma_yamsel   , PM_ICONUNSELECTED , ma_yamunsel   , PMEnd,
  133.                    PMBar, PMEnd,
  134.                    PMItem( 'Quit' ), PM_USERDATA, 5, PMEnd,
  135.                  End
  136.  
  137.       IF ma_menu <> NIL
  138.  
  139.         PrintF( 'StartMenu is now running.\nMove the mousepointer to the bottom of the screen to open the menu.\nThis demo may cause deadlocks (e.g. if you move an icon to the bottom of the screen), but they should be solved quickly.\nA better startmenu example will follow soon...\n' )
  140.  
  141.         WHILE ma_result <> FALSE
  142.  
  143.           Delay( 4 )   -> A CX object would be better...
  144.  
  145.           -> If we're somewhere near the bottom of the screen...
  146.           IF ma_screen.mousey > (ma_screen.height - 3)
  147.  
  148.             ma_window.mousex := ma_screen.mousex
  149.  
  150.             ma_result := Pm_OpenPopupMenuA( ma_window, -> Open our start menu !
  151.             [ PM_MENU ,  ma_menu, TAG_END ] )
  152.  
  153.             -> Take care of the return codes here. (PM_UserData is returned)
  154.             SELECT ma_result
  155.             CASE 30 ; Execute( 'Run COMM:YAM/YAM', NIL, NIL )
  156.             CASE 20 ; Execute( 'Run COMM:IBrowse/IBrowse', NIL, NIL )
  157.             CASE 10 ; Execute( 'Run COMM:Miami/Miami', NIL, NIL )
  158.             ENDSELECT
  159.  
  160.             -> When we get a 5 from OpenPopupMenu we make it into a 0,
  161.             -> and the program exits!
  162.             ma_result := ma_result - 5
  163.  
  164.           ENDIF
  165.  
  166.         ENDWHILE
  167.  
  168.         Pm_FreePopupMenu( ma_menu )
  169.  
  170.       ELSE
  171.         PrintF( 'Menu error !\n' )
  172.       ENDIF
  173.  
  174.     ELSE
  175.       PrintF( 'No public screen !\n' )
  176.     ENDIF
  177.     CloseLibrary( popupmenubase )
  178.   ELSE
  179.     PrintF( 'Cannot open "popupmenu.library" v9+ !\n' )
  180.   ENDIF
  181.  
  182. ENDPROC
  183. ->»»>
  184.  
  185.  
  186. /* -- ----------------------------------------------------------------- -- *
  187.  * --                               Data                                -- *
  188.  * -- ----------------------------------------------------------------- -- */
  189.  
  190. ->»» IMAGE DATA nn
  191. lab_NNData:
  192. INT $0000,$0000,$0000,$0000,$0000,$0100,$0000,$0000, -> Plane 0
  193.     $0000,$0000,$0000,$0300,$0000,$0000,$0000,$0000,
  194.     $0000,$0300,$0000,$0000,$0000,$0000,$0000,$0300,
  195.     $0FFF,$FFF0,$0000,$0000,$0000,$0300,$0FFF,$FFF0,
  196.     $0000,$0000,$0000,$0300,$0FFF,$FFF0,$0000,$0000,
  197.     $0003,$8300,$0FFF,$FFF0,$8BDF,$3CF1,$9EF2,$4300,
  198.     $0F8F,$E1F0,$CA04,$2082,$5280,$8300,$0FE7,$FBF0,
  199.     $ABC4,$3883,$DEF1,$0300,$0FE3,$FBF0,$9A04,$0482,
  200.     $5081,$0300,$0FE9,$FBF0,$8BC4,$3CF2,$50F9,$0300,
  201.     $0FE8,$FBF0,$0000,$0000,$0000,$0300,$0FEC,$7BF0,
  202.     $0040,$0000,$001C,$0300,$0FEE,$3BF0,$18C0,$0000,
  203.     $0018,$0300,$0FEF,$1BF0,$38C0,$0000,$0018,$0300,
  204.     $0FEF,$93F0,$3CC0,$0000,$0018,$0300,$0FEF,$83F0,
  205.     $3CC0,$0060,$0038,$0300,$0FA0,$01F0,$3EC3,$C0E7,
  206.     $BBF8,$0300,$0000,$0000,$36C7,$D9CF,$BFF8,$0300,
  207.     $0000,$0000,$37CF,$9DDF,$1E38,$0300,$0000,$0000,
  208.     $33CF,$7F9E,$FC30,$0300,$0000,$0000,$33CC,$FF19,
  209.     $FC30,$0300,$0000,$0000,$31CF,$EF1F,$F830,$0300,
  210.     $0000,$0000,$30C7,$8E0F,$3800,$0300,$0000,$0000,
  211.     $3000,$0000,$1030,$0300,$0000,$0000,$0000,$0000,
  212.     $0030,$0300,$0000,$0000,$0000,$0000,$0030,$0300,
  213.     $0000,$0000,$0000,$0000,$0000,$0300,$7FFF,$FFFF,
  214.     $FFFF,$FFFF,$FFFF,$FF00,$FFFF,$FFFF,$FFFF,$FFFF,
  215.     $FFFF,$FF00,
  216.     $FFFF,$FFFF,$FFFF,$FFFF,$FFFF,$FE00,$FFFF,$FFFF,  -> Plane 1
  217.     $FFFF,$FFFF,$FFFF,$FC00,$C000,$0000,$0000,$0000,
  218.     $0000,$0000,$C000,$0000,$0000,$0000,$0000,$0000,
  219.     $C000,$0000,$0000,$0000,$0000,$0000,$C000,$0000,
  220.     $0000,$0000,$0000,$0000,$C000,$0000,$0000,$0000,
  221.     $0000,$0000,$C0E0,$3200,$0000,$0000,$0000,$0000,
  222.     $C0FB,$BF00,$0000,$0000,$0000,$0000,$CFFF,$FC10,
  223.     $0000,$0000,$0000,$0000,$CFFF,$FED0,$0000,$0000,
  224.     $0000,$0000,$CFFF,$FFF0,$0000,$0000,$0000,$0000,
  225.     $CFFF,$FFF0,$0000,$0000,$0000,$0000,$CFFF,$FFF0,
  226.     $0040,$0000,$001C,$0000,$CFFF,$FFF0,$18C0,$0000,
  227.     $0018,$0000,$CFFF,$FFF0,$38C0,$0000,$0018,$0000,
  228.     $CFFF,$FFF0,$3CC0,$0000,$0018,$0000,$CFFF,$FFF0,
  229.     $3CC0,$0060,$0038,$0000,$CFB0,$09F0,$3EC3,$C0E7,
  230.     $BBF8,$0000,$C030,$0000,$36C7,$D9CF,$BFF8,$0000,
  231.     $C030,$0000,$37CF,$9DDF,$1E38,$0000,$C000,$0000,
  232.     $33CF,$7F9E,$FC30,$0000,$C000,$0000,$33CC,$FF19,
  233.     $FC30,$0000,$C000,$0000,$31CF,$EF1F,$F830,$0000,
  234.     $C000,$0000,$30C7,$8E0F,$3800,$0000,$C000,$0000,
  235.     $3000,$0000,$1030,$0000,$C000,$0000,$0000,$0000,
  236.     $0030,$0000,$C000,$0000,$0000,$0000,$0030,$0000,
  237.     $C000,$0000,$0000,$0000,$0000,$0000,$8000,$0000,
  238.     $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  239.     $0000,$0000,
  240.     $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000, -> Plane 2
  241.     $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  242.     $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  243.     $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  244.     $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  245.     $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  246.     $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  247.     $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  248.     $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  249.     $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  250.     $0040,$0000,$001C,$0000,$0000,$0000,$18C0,$0000,
  251.     $0018,$0000,$0000,$0000,$38C0,$0000,$0018,$0000,
  252.     $0000,$0000,$3CC0,$0000,$0018,$0000,$0000,$0000,
  253.     $3CC0,$0060,$0038,$0000,$004F,$F600,$3EC3,$C0E7,
  254.     $BBF8,$0000,$0FCF,$FFF0,$36C7,$D9CF,$BFF8,$0000,
  255.     $0FCF,$FFF0,$37CF,$9DDF,$1E38,$0000,$0FFF,$FFF0,
  256.     $33CF,$7F9E,$FC30,$0000,$0FFF,$FFF0,$33CC,$FF19,
  257.     $FC30,$0000,$0FFF,$FFF0,$31CF,$EF1F,$F830,$0000,
  258.     $0FFF,$FFF0,$30C7,$8E0F,$3800,$0000,$0FFF,$FFF0,
  259.     $3000,$0000,$1030,$0000,$0FFF,$FFF0,$0000,$0000,
  260.     $0030,$0000,$0000,$0000,$0000,$0000,$0030,$0000,
  261.     $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  262.     $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0000,
  263.     $0000,$0000
  264. ->»»>
  265.  
  266. ->»» IMAGE DATA YAM (Selected)
  267. lab_YAMSelData:
  268. INT $FFFF,$FFFF,$FFFF,$FC00,$FFFF,$FFFF,$FFFF,$F800, -> Plane 0
  269.     $FFD7,$FFFF,$FFFF,$F800,$F9FD,$FFFF,$F9CC,$7800,
  270.     $BABF,$EAAA,$A88C,$6800,$F05B,$FFFF,$F18C,$7800,
  271.     $B00E,$DEAA,$A4CC,$6800,$E805,$F7DD,$C10C,$5800,
  272.     $B500,$BDEA,$B559,$2800,$AAA0,$D731,$0004,$5000,
  273.     $BF50,$8DDA,$9119,$2800,$BFEA,$8AB8,$2464,$4000,
  274.     $BFF4,$DCD8,$D119,$2800,$BFFE,$9B28,$8004,$8000,
  275.     $BFFE,$F5D8,$4001,$0000,$BFFE,$BA98,$8000,$8000,
  276.     $BFFE,$B499,$4411,$0000,$B7FF,$FA6A,$8A20,$8000,
  277.     $8DFF,$F559,$0411,$0000,$837F,$FAAF,$0821,$8000,
  278.     $80DF,$F54D,$1011,$0000,$8077,$FA9E,$2821,$8000,
  279.     $804D,$F56C,$1051,$8000,$8047,$7B9C,$6AB1,$8000,
  280.     $8044,$D61C,$7FF1,$8000,$8044,$7800,$0000,$0000,
  281.     $8044,$0000,$0000,$0000,$807C,$0000,$0000,$0000,
  282.     $8000,$0000,$0000,$0000,
  283.     $0000,$0000,$0000,$0000,$0000,$0000,$0000,$0400, -> Plane 1
  284.     $0008,$0000,$0000,$0400,$020E,$0000,$0000,$0400,
  285.     $054F,$0000,$0000,$0400,$0FA7,$0000,$0000,$0400,
  286.     $0FF1,$0000,$0440,$0400,$17FA,$0000,$0000,$0400,
  287.     $0AFE,$4000,$1551,$0400,$155E,$2800,$0000,$0400,
  288.     $00AE,$7000,$1111,$0400,$0014,$7000,$2020,$0400,
  289.     $000A,$2000,$5111,$0400,$0000,$6000,$8000,$8400,
  290.     $0000,$0000,$4001,$0400,$0000,$4040,$8000,$8400,
  291.     $0000,$0041,$4411,$0400,$0000,$0002,$8A20,$8400,
  292.     $0000,$0001,$0411,$0400,$0000,$0007,$0821,$8400,
  293.     $0000,$0005,$1011,$0400,$0000,$0006,$2821,$8400,
  294.     $0000,$000C,$1051,$8400,$0000,$001C,$6AB1,$8400,
  295.     $0000,$001C,$7FF1,$8400,$0000,$0000,$0000,$0400,
  296.     $0000,$0000,$0000,$0400,$0000,$0000,$0000,$0400,
  297.     $7FFF,$FFFF,$FFFF,$FC00,
  298.     $0000,$0000,$0000,$0000,$7E07,$FFFF,$FFFF,$F800, -> Plane 2
  299.     $79E9,$FFFF,$FFFF,$F800,$75EE,$7FFF,$F9CC,$7800,
  300.     $22AF,$2AAA,$AEBD,$E800,$4047,$0FFF,$FFFD,$F800,
  301.     $1009,$62AA,$AABD,$E800,$4804,$78DD,$DFFD,$D800,
  302.     $1501,$3E2A,$AAA8,$A800,$0AA1,$54D1,$3FF5,$D000,
  303.     $1F51,$0BEA,$AAA8,$A800,$1FEB,$07E0,$57D5,$C000,
  304.     $1FF5,$4630,$A228,$A800,$1FFF,$0ED0,$6337,$0000,
  305.     $1FFF,$6EF0,$A000,$8000,$1FFF,$2F21,$4003,$0000,
  306.     $1FFF,$2F30,$9320,$9000,$0FFF,$6F91,$0413,$0000,
  307.     $53FF,$EFF6,$D964,$D000,$20FF,$EFF0,$3612,$2000,
  308.     $553F,$EFF2,$4D64,$D000,$2A8F,$EFE0,$929A,$2800,
  309.     $5513,$EF93,$6FA6,$5000,$6AB8,$EE23,$954A,$3800,
  310.     $5511,$2941,$0006,$5000,$7FBB,$87FF,$FFFF,$F800,
  311.     $7FBB,$FFFF,$FFFF,$F800,$7F83,$FFFF,$FFFF,$F800,
  312.     $0000,$0000,$0000,$0000
  313. ->»»>
  314.  
  315. ->»» IMAGE DATA YAM (Unselected)
  316. lab_YAMUnSelData:
  317. INT $0000,$0000,$0000,$0000,$7FFF,$FFFF,$FFFF,$FC00, -> Plane 0
  318.     $7FFF,$FFFF,$FFFF,$FC00,$79FF,$FFFF,$F9CC,$7C00,
  319.     $3ABF,$EAAA,$A88C,$6C00,$7057,$3FFF,$F18C,$7C00,
  320.     $300B,$DEAA,$A4CC,$6C00,$6805,$77DD,$C10C,$5C00,
  321.     $3500,$BDEA,$B559,$2C00,$2AA0,$5731,$0004,$5400,
  322.     $3F50,$0DDA,$9119,$2C00,$3EEA,$0AB8,$2464,$4400,
  323.     $3DB5,$5CD8,$D119,$2C00,$3FDE,$9B28,$8004,$8400,
  324.     $3FB7,$75D8,$4001,$0400,$3FEC,$BA98,$8000,$8400,
  325.     $3FFB,$3499,$4411,$0400,$37FE,$FA6A,$8A20,$8400,
  326.     $0DFF,$F559,$0411,$0400,$037F,$FAAF,$0821,$8400,
  327.     $00DF,$F54D,$1011,$0400,$0077,$FA9E,$2821,$8400,
  328.     $004D,$F56C,$1051,$8400,$0047,$7B9C,$6AB1,$8400,
  329.     $0044,$D61C,$7FF1,$8400,$0044,$7800,$0000,$0400,
  330.     $0044,$0000,$0000,$0400,$007C,$0000,$0000,$0400,
  331.     $7FFF,$FFFF,$FFFF,$FC00,
  332.     $FFFF,$FFFF,$FFFF,$FC00,$8000,$0000,$0000,$0000, -> Plane 1
  333.     $8000,$0000,$0000,$0000,$8200,$0000,$0000,$0000,
  334.     $8540,$0000,$0000,$0000,$8FA8,$0000,$0000,$0000,
  335.     $8FF4,$0000,$0440,$0000,$97FA,$8000,$0000,$0000,
  336.     $8AFF,$4000,$1551,$0000,$955F,$A800,$0000,$0000,
  337.     $80AF,$F000,$1111,$0000,$8015,$F000,$2020,$0000,
  338.     $820A,$A000,$5111,$0000,$8301,$6000,$8000,$8000,
  339.     $8300,$8000,$4001,$0000,$8300,$4040,$8000,$8000,
  340.     $8100,$0041,$4411,$0000,$8000,$0002,$8A20,$8000,
  341.     $8000,$0001,$0411,$0000,$8000,$0007,$0821,$8000,
  342.     $8000,$0005,$1011,$0000,$8000,$0006,$2821,$8000,
  343.     $8000,$000C,$1051,$8000,$8000,$001C,$6AB1,$8000,
  344.     $8000,$001C,$7FF1,$8000,$8000,$0000,$0000,$0000,
  345.     $8000,$0000,$0000,$0000,$8000,$0000,$0000,$0000,
  346.     $8000,$0000,$0000,$0000,
  347.     $0000,$0000,$0000,$0000,$7E07,$FFFF,$FFFF,$F800, -> Plane 2
  348.     $79F9,$FFFF,$FFFF,$F800,$75FE,$7FFF,$F9CC,$7800,
  349.     $22BF,$2AAA,$AEBD,$E800,$4057,$CFFF,$FFFD,$F800,
  350.     $100B,$E2AA,$AABD,$E800,$4805,$78DD,$DFFD,$D800,
  351.     $1500,$BE2A,$AAA8,$A800,$0AA0,$54D1,$3FF5,$D000,
  352.     $1F50,$0BEA,$AAA8,$A800,$19EA,$07E0,$57D5,$C000,
  353.     $1A75,$4630,$A228,$A800,$1B3E,$8ED0,$6337,$0000,
  354.     $1B4F,$6EF0,$A000,$8000,$1B73,$AF21,$4003,$0000,
  355.     $197C,$AF30,$9320,$9000,$0E7F,$2F91,$0413,$0000,
  356.     $53FF,$EFF6,$D964,$D000,$20FF,$EFF0,$3612,$2000,
  357.     $553F,$EFF2,$4D64,$D000,$2A8F,$EFE0,$929A,$2800,
  358.     $5513,$EF93,$6FA6,$5000,$6AB8,$EE23,$954A,$3800,
  359.     $5511,$2941,$0006,$5000,$7FBB,$87FF,$FFFF,$F800,
  360.     $7FBB,$FFFF,$FFFF,$F800,$7F83,$FFFF,$FFFF,$F800,
  361.     $0000,$0000,$0000,$0000
  362. ->»»>
  363.  
  364. ->»» IMAGE DATA Miami (Selected)
  365. lab_MiamiSelData:
  366. INT $FFFF,$FFFF,$FFFF,$E000,$8000,$0000,$0000,$0000, -> Plane 0
  367.     $8000,$0000,$0000,$0000,$8FFF,$FFFF,$FFFF,$0000,
  368.     $8FFF,$FFFF,$FFFF,$0000,$8FFF,$FD55,$FFFF,$0000,
  369.     $8FFF,$EAAA,$FFFF,$0000,$8FFF,$5555,$7FFD,$0000,
  370.     $8FFF,$FEAB,$FFFF,$0000,$8FFD,$57FF,$5FFF,$0000,
  371.     $8FFF,$AAAA,$AFFF,$0000,$8FFD,$D755,$57FF,$0000,
  372.     $8FFB,$EAAA,$BBFF,$0000,$8FF7,$5555,$F7FF,$0000,
  373.     $8FFA,$AAAB,$ABFF,$0000,$8FF7,$D555,$5DFF,$0000,
  374.     $8FFF,$FFAA,$EBFF,$0000,$8FF7,$FD55,$55FF,$0000,
  375.     $8FFE,$EAAA,$ABFF,$0000,$8FF7,$5555,$55FF,$0000,
  376.     $8FFA,$AAAA,$ABFF,$0000,$8FF7,$5555,$57FF,$0000,
  377.     $8FFA,$AAAA,$ABFF,$0000,$8FFD,$5555,$57FF,$0000,
  378.     $8FFB,$AAAA,$ABFF,$0000,$8FFD,$D555,$5FFF,$0000,
  379.     $8FFE,$EAAA,$FBFF,$0000,$8FFF,$7555,$DFFF,$0000,
  380.     $8FFF,$BFAF,$AFFF,$0000,$8FFF,$D7FF,$7FFF,$0000,
  381.     $8FFF,$FBFA,$FFFF,$0000,$8FFF,$FD57,$FFFF,$0000,
  382.     $8000,$0000,$0000,$0000,$8000,$0000,$0000,$0000,
  383.     $8000,$0000,$0000,$0000,
  384.     $0000,$0000,$0000,$1000,$0000,$0000,$0000,$1000, -> Plane 1
  385.     $0000,$0000,$0000,$1000,$0FFF,$FE97,$FFFF,$1000,
  386.     $0FFF,$F8F8,$FFFF,$1000,$0FFF,$FBFD,$3FFF,$1000,
  387.     $00FF,$EF4F,$8FF6,$1000,$0FA1,$F801,$C6DD,$1000,
  388.     $0F7F,$0203,$5F7F,$1000,$0FFF,$F73E,$5FFF,$1000,
  389.     $0FFF,$8BD5,$1BFF,$1000,$0FFE,$8200,$1DFF,$1000,
  390.     $0FFE,$8000,$3DFF,$1000,$0FFD,$00D8,$06FF,$1000,
  391.     $0FF8,$01FE,$04FF,$1000,$0FFE,$0366,$0EFF,$1000,
  392.     $0FFC,$03B6,$46FF,$1000,$0FFE,$03EB,$02FF,$1000,
  393.     $0FFC,$442B,$06FF,$1000,$0FFE,$0020,$057F,$1000,
  394.     $0FF8,$00A0,$06FF,$1000,$0FFC,$0060,$06FF,$1000,
  395.     $0FFC,$0060,$0DFF,$1000,$0FFD,$0060,$07FF,$1000,
  396.     $0FFB,$0060,$1FFF,$1000,$0FFF,$0070,$1FFF,$1000,
  397.     $0FFF,$82F6,$57FF,$1000,$0FFF,$87FF,$9FFF,$1000,
  398.     $0FFF,$F3F7,$BFFF,$1000,$0FFF,$F60D,$FFFF,$1000,
  399.     $0FFF,$FFDF,$FFFF,$1000,$0FFF,$FFFF,$FFFF,$1000,
  400.     $0000,$0000,$0000,$1000,$0000,$0000,$0000,$1000,
  401.     $7FFF,$FFFF,$FFFF,$F000
  402. ->»»>
  403.  
  404. ->»» IMAGE DATA Miami (Unselected)
  405. lab_MiamiUnSelData:
  406. INT $0000,$0000,$0000,$1000,$0000,$0000,$0000,$1000, -> Plane 0
  407.     $0000,$0000,$0000,$1000,$0000,$0000,$0000,$1000,
  408.     $0000,$0000,$0000,$1000,$0000,$07FE,$0000,$1000,
  409.     $0000,$1FFF,$8000,$1000,$0400,$BFFF,$C002,$1000,
  410.     $00A8,$01FC,$0080,$1000,$0003,$FC01,$F000,$1000,
  411.     $0002,$7FFF,$F800,$1000,$0006,$7DFF,$F800,$1000,
  412.     $0004,$3FFF,$CC00,$1000,$000C,$FFFF,$4C00,$1000,
  413.     $000D,$FFFC,$7E00,$1000,$0008,$3FFF,$E600,$1000,
  414.     $0008,$02FF,$BE00,$1000,$0008,$06BF,$FE00,$1000,
  415.     $0009,$1FFD,$5E00,$1000,$0009,$FFFF,$FE00,$1000,
  416.     $000D,$FF7F,$FE00,$1000,$000D,$FFFF,$FC00,$1000,
  417.     $0005,$FFFF,$FC00,$1000,$0006,$FFFF,$F800,$1000,
  418.     $0006,$7FFF,$F400,$1000,$0003,$3FFF,$E000,$1000,
  419.     $0001,$BFFF,$8C00,$1000,$0000,$CFFE,$3000,$1000,
  420.     $0000,$60F8,$7000,$1000,$0000,$3800,$C000,$1000,
  421.     $0000,$0EA7,$8000,$1000,$0000,$03FC,$0000,$1000,
  422.     $0000,$0000,$0000,$1000,$0000,$0000,$0000,$1000,
  423.     $7FFF,$FFFF,$FFFF,$F000,
  424.     $FFFF,$FFFF,$FFFF,$E000,$8000,$0000,$0000,$0000, -> Plane 1
  425.     $8000,$0000,$0000,$0000,$8000,$0168,$0000,$0000,
  426.     $8000,$0707,$0000,$0000,$8000,$0402,$C000,$0000,
  427.     $8F00,$10B0,$7009,$0000,$805E,$07FE,$3922,$0000,
  428.     $8080,$FDFC,$A080,$0000,$8000,$08C1,$A000,$0000,
  429.     $8000,$742A,$E400,$0000,$8001,$7DFF,$E200,$0000,
  430.     $8001,$7FFF,$C200,$0000,$8002,$FF27,$F900,$0000,
  431.     $8007,$FE01,$FB00,$0000,$8001,$FC99,$F100,$0000,
  432.     $8003,$FC49,$B900,$0000,$8001,$FC14,$FD00,$0000,
  433.     $8003,$BBD4,$F900,$0000,$8001,$FFDF,$FA80,$0000,
  434.     $8007,$FF5F,$F900,$0000,$8003,$FF9F,$F900,$0000,
  435.     $8003,$FF9F,$F200,$0000,$8002,$FF9F,$F800,$0000,
  436.     $8004,$FF9F,$E000,$0000,$8000,$FF8F,$E000,$0000,
  437.     $8000,$7D09,$A800,$0000,$8000,$7800,$6000,$0000,
  438.     $8000,$0C08,$4000,$0000,$8000,$09F2,$0000,$0000,
  439.     $8000,$0020,$0000,$0000,$8000,$0000,$0000,$0000,
  440.     $8000,$0000,$0000,$0000,$8000,$0000,$0000,$0000,
  441.     $8000,$0000,$0000,$0000
  442. ->»»>
  443.